#' 根据IV创建补充表一（table_S1）
#'
#' @param IV U2_extract_instruments功能制作的工具变量
#'
#' @return 补充表一
#' @export
#'
#' @examples
#'
#' \dontrun{
#'
#' table_S1<-U6_create_table_S1(IV)
#'
#' }
#'
#'
U6_create_table_S1<-function(IV){
  require(dplyr)
  Table_S1 <- IV %>%
    select( c("exposure","SNP","effect_allele.exposure",
              "other_allele.exposure","beta.exposure",
              "se.exposure","pval.exposure" )  ) %>%
    rename("Exposure"="exposure",
           "effect_allele"="effect_allele.exposure",
           "other_allele"="other_allele.exposure",
           "beta"="beta.exposure","se"="se.exposure",
           "pval"="pval.exposure") %>%
    rowwise() %>%
    mutate(across(where(is.numeric),tidy_num))%>%
    ungroup( )
  return(Table_S1)
}
